home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.10 / medplayerlibrary / medplay1.0c.p < prev    next >
Text File  |  1995-04-19  |  3KB  |  113 lines
  1. program medplay3;
  2.  
  3. { 
  4.   *  Medplay.p ,  1993 by Diesel,  (P)1993 in the Pascal-FD-Serie  *
  5.   *  "Purity". Feel free 2 spread this !  [ This version 1.0c is   *
  6.   *  only 4 use in CLI ]                       Bernd K., 1993      * }
  7.  
  8.  
  9. { *  This example uses the medplayer.library . Compiled with PCQ-  *
  10.   *  Pascal V1.2 .                                                 * }
  11.  
  12.  
  13.  
  14. {$I "Include:Libraries/medplayer.i"  }
  15. {$I "Include:libraries/dos.i"   }
  16. {$I "Include:exec/Libraries.i"  }
  17. {$I "Include:utils/Parameters.i"  }
  18. {$I "Include:intuition/intuition.i"  }
  19.  
  20. Const
  21.     NW : NewWindow = ( 10,20,350,11, 0,2, CloseWindow_f,
  22.             WindowDrag+WindowDepth+WindowClose+RMBTrap,
  23.             NIL, NIL, NIL,NIL, NIL,
  24.             0,0,0,0, WBenchScreen_f);
  25.  
  26. VAR
  27.     GP      : Integer;
  28.     name      : String;            { für Argument    }
  29.     buf      : Array[0..99] of Char;    { vom CLI    }
  30.  
  31.     module      : MMD0Ptr;            { ->Song-Record }
  32.     Win      : WindowPtr;
  33.     WMsgPort  : MsgPortPtr;
  34.     Msg      : IntuiMessagePtr;
  35.  
  36.  
  37. { * Zum sauberen Verlassen des Programms : * }
  38.  
  39. Procedure CleanExit( why : String; rt : Integer);
  40. Begin
  41.       { * Window zu * }
  42.     If Win <> NIL        then CloseWindow( Win );
  43.       { * Player entfernen * }
  44.     If GP = 0        then FreePlayer;
  45.       { * Song adios * }
  46.     If module <> NIL    then UnloadModule( module );
  47.       { * Library zu * }
  48.     If MEDPlayerBase <> NIL    then CloseLibrary( MEDPlayerBase );
  49.       { * ggf. Msg ausgeben * }
  50.     If why <> NIL        then Begin
  51.       write( why );
  52.       Delay(50);
  53.     End;
  54.  
  55.     Exit( rt );        { * Bye ! * }
  56. End;
  57.  
  58. begin
  59.     GP := -1;
  60.     name := Adr( buf );
  61.     GetParam( 1, name );        { * CLI-Arg. holen * }
  62.     if buf[0] = chr(0) then
  63.       CleanExit("Medplay 1.0c, 1993 by Diesel\nUsage: Medplay med-modulename\n\n",0);
  64.  
  65.                     { * Library aufmachen, logo * }
  66.     MEDPlayerBase := OpenLibrary( medname, 0 );
  67.     if MEDPlayerBase = NIL then
  68.       CleanExit("Cannot open medplayer.library\n", 10);
  69.  
  70.  
  71.     GP := GetPlayer(0);        { * Player installieren * }
  72.     If  GP <> 0  then
  73.       CleanExit("Cannot init player\n",0);
  74.  
  75.  
  76.     module := LoadModule( name );    { * Song laden * }
  77.     If module = NIL then
  78.       CleanExit("Cannot load module\n",0);
  79.  
  80.     NW.Title := name;        { * Fenster auf * }
  81.     Win := OpenWindow( Adr(NW) );
  82.     If Win = NIL then CleanExit("Cannot open window\n",0);
  83.  
  84.     PlayModule(module);        { * Mucke ab ! * }
  85.  
  86.  
  87.     WMsgPort:=Win^.UserPort;    { * MsgPort holen * }
  88.  
  89.                     { * Messages holen * }
  90.     Repeat
  91.       Msg := IntuiMessagePtr( WaitPort( WMsgPort ));
  92.       Msg := IntuiMessagePtr(   GetMsg( WMsgPort ));
  93.     Until Msg <> NIL ;
  94.  
  95.     { * Einzige mögl. Msg = CloseWindow !  * }
  96.     { * Sicherheitshalber nachfragen, ob noch CW-Msg`s da sind : * }
  97.  
  98.     REPEAT
  99.       ReplyMsg(MessagePtr(Msg));            { * Msg beantworten    * }
  100.       Msg:=IntuiMessagePtr(GetMsg(WMsgPort));   { * Msg holen, = NIL ? * }
  101.     UNTIL Msg = NIL;
  102.      CloseWindow( Win );        { * Fenster zu * }
  103.     Win := NIL;
  104.  
  105.  
  106.     DimOffPlayer(10);        { * Song ausblenden * }
  107.     Delay(100);            { * 2 sec. warten   * }
  108.  
  109.  
  110.     CleanExit( NIL, 0 );        { * Und tschüß ! * }
  111. end.
  112.  
  113.